Loadstar 10/010.d81/iq test

Commodore BASIC | 2022-08-26 | 8KB | 196 lines

1 gosub51000
10 rem *** iq test
11 rem *** by earl janssen
12 rem *** c. 1984
13 rem *** translated for the commodore
14 rem *** by donna k. woody
20 poke53280,1:poke53281,0:print"[158]":poke53272,23:printchr$(8)
30 print"[147]"
40 dima$(15),q$(16),c$(15),r$(15)
45 printtab(16)"[201][209] [212][197][211][212]"
50 printtab(8)"[202]ust how smart are you?"
54 printtab(12)"by [197]arl [202]anssen"
56 printtab(6)"[212]ranslated for the [195]ommodore"
58 printtab(12)"by [196]onna [203]. [215]oody"
60 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
65 getk$:ifk$=""then65
70 print"[147]"
100 print"[212]his short '[201][209] [212][197][211][212]' is designed to test"
101 print"your observation skills and level of"
102 print"common sense.  [201]t is to be used purely"
103 print"for your enjoyment or frustration, what-"
104 print"ever the case may be!"
110 print"[215]hen inputting your answers, remember"
111 print"that spelling does count in this test."
112 print"[213]se numbers whenever possible."
117 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
118 getk$:ifk$=""then118
120 print"[147][193]nswers will be scored at the end of the"
121 print"test and you will be provided an"
122 print"explanation of the correct answer.  [217]ou"
123 print"will also be rated on your performance."
130 print"[199]ood [204]uck.  [217]ou will need it!!!"
140 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
145 geta$:ifa$=""then145
150 print"[147]"
160 gosub560
190 forn=1to15:readc$(n):nextn
200 gosub730
210 forn=1to15
220 print"[147]"q$(n)
230 ifn=15thenprint"[145]"q$(16)
240 ifn=4thenprint:input"[193]nswer = the ";a$(n):goto260
250 print:input"[193]nswer = ";a$(n)
260 nextn
270 print"[147]"
280 print"[201]t is now the time of judgement,  [217]ou"
281 print"will now see exactly how well or poorly"
282 print"you performed on this simple quiz."
283 print"[208]repare yourself!"
290 print"     [208]ress <[211][208][193][195][197] [194][193][210]> to continue";
295 geta$:ifa$=""then295
300 forn=1to15
310 print"[147]"
320 print"[212]he question"
330 printq$(n)
340 ifn=15thenprint"[145]"q$(16)
350 print"[217]our answer:[146] ";a$(n)
370 print"[212]he correct answer:[146][160]";c$(n)
390 ifc$(n)=a$(n)thenc=c+1
400 print"[212]he reason:[146] ":printr$(n)
410 print""tab(28)"score = "c"[146]"
420 print"[208]ress <[211][208][193][195][197] [194][193][210]> to continue";
425 gett$:ift$=""then425
430 nextn
440 print"[147]"
450 print"[217]ou scored a total of ";c;" correct"
455 print"answers out of 15 possible for a total"
457 print"of ";int((c*100)/15);"%"
460 print"[212]his gives you a rating of:"
480 ifc=15thenprint"[199][197][206][201][213][211]":goto540
490 ifc>13thenprint"[201][206][212][197][204][204][201][199][197][206][212]":goto540
500 ifc>10thenprint"[206]ot too bad":goto540
510 ifc>7thenprint"[206]ormal":goto540
520 ifc>4thenprint"[206]eed work":goto540
530 print"[205]oron":goto540
540 print"        [208]ress <[211][208][193][195][197] [194][193][210]>";:poke198,0:wait198,1
541 goto60000
560 q$(1)="1.  [196]o they have a fourth of [202]uly in        [197]ngland (y/n)?"
570 q$(2)="2.  [200]ow many birthdays does the average     man have?"
580 q$(3)="3.  [200]ow many months have 28 days?"
590 q$="4.  [201]f you had only one match and      "
591 q1$="     entered a room where there was a  "
592 q2$="      lamp, an oil heater, and some    "
593 q3$="       kindling wood, which would you          light first?"
594 q$(4)=q$+q1$+q2$+q3$
600 q$="5.  [201]f the doctor gave you three pills  "
601 q1$="    and told you to take one every half"
602 q2$="     hour, how long would they last you?"
603 q3$="     ([193]nswer in terms of whole or      "
604 q4$="      fractions of hours.)"
605 q$(5)=q$+q1$+q2$+q3$+q4$
610 q$="6.  [193] man builds a house with four sides"
611 q1$="    to it, a rectangular structure.     "
612 q2$="    [197]ach side has a southern exposure.  "
613 q3$="    [193] big bear comes wandering by.      "
614 q4$="    [215]hat color is the bear?"
615 q$(6)=q$+q1$+q2$+q3$+q4$
620 q$="7.  [193] farmer had seventeen sheep.  [193]ll  "
621 q1$="    but nine died.  [200]ow many did he have    left?"
622 q$(7)=q$+q1$
630 q$(8)="8.  [196]ivide 30 by 1/2.  [193]dd 10.  [215]hat is     the answer?"
640 q$="9.  [212]ake two apples from three apples   "
641 q1$="    and what do you have? ([206]umber of        apples.)"
642 q$(9)=q$+q1$
650 q$="10.  [200]ow many animals of each species   "
651 q1$="     did [205]oses take aboard the ark?"
652 q$(10)=q$+q1$
660 q$="11.  [201]s it legal in [206]orth [195]arolina for a"
661 q1$="     man to marry his widow's sister         (y/n)?"
662 q$(11)=q$+q1$
670 q$(12)="12.  [200]ow many cubic feet of dirt is in       a hole 3' x 2' x 2'?"
680 q$="13.  [193] bottle and a cork cost $1.05.    "
681 q1$="     [212]he bottle costs $1.00 more than   "
682 q2$="     the cork.  [200]ow much does the cork       cost?  ([201]n cents.)"
683 q$(13)=q$+q1$+q2$
690 q$="14.  [200]ow many outs are there in each    "
691 q1$="     inning of a baseball game?"
692 q$(14)=q$+q1$
700 q$="15.  [193] lake has a surface area of three "
701 q1$="     square miles.  [196]uring the summer,  "
702 q2$="     water lilies begin to cover the    "
703 q3$="     surface of the lake, doubling the  "
704 q4$="     area of coverage each day.  [201]f     "
705 q$(15)=q$+q1$+q2$+q3$+q4$
710 q$="     the entire surface of the lake is  "
711 q1$="     covered in 60 days.  [200]ow many days "
712 q2$="     does it take for the lake to be    "
713 q3$="     half covered with lilies?"
714 q$(16)=q$+q1$+q2$+q3$
715 return
720 datay,1,12,match,1,white,9,70,2,0,n,0,2.5,6,59
730 q$="[212]he fourth of [202]uly comes after the third"
731 q1$="of [202]uly in every country around the     "
732 q2$="world.  [212]he [213].[211]. celebrates [201]ndependence"
733 q3$="[196]ay on the fourth of [202]uly."
734 r$(1)=q$+q1$+q2$+q3$
740 q$="[212]he average man is born only once.  [200]e  "
741 q1$="may celebrate many anniversaries of     "
742 r$(2)=q$+q1$+"his birth-day."
750 q$="[193]ll 12 months of the year have at least "
751 q1$="28 days in them.  [211]ome just have more   "
752 r$(3)=q$+q1$+"than that, but none have less."
760 q$="[201]n order to light any of the items      "
761 r$(4)=q$+"listed, the match must be lit first."
770 q$="[212]ake one pill now, one in a half hour   "
771 q1$="and the third and last pill a half hour "
772 r$(5)=q$+q1$+"later for a total of one hour."
780 q$="[201]n order for a rectangular structure to "
781 q1$="have all four sides facing south, it    "
782 q2$="must be situated on the north pole.     "
783 r$(6)=q$+q1$+q2$+"[212]herefore the bear must be a polar bear."
790 q$="[201]f all but 9 sheep dies, that means that"
791 r$(7)=q$+"there are 9 sheep alive and 8 dead ones."
800 q$="[215]hen you divide by 1/2, it is the same  "
801 q1$="as multiplying by 2 (or have you        "
802 q2$="forgotton how to cross multiply?).      "
803 r$(8)=q$+q1$+q2$+"[200]ence the equation is (30*2)+10=70."
810 q$="[215]hen you take two apples from any total "
811 q1$="number of apples, you will have the two "
812 r$(9)=q$+q1$+"apples you took."
820 r$(10)="[201]t was [206]oah, not [205]oses, who took animalson the ark during the flood."
830 q$="[193] man who marries his widow's sister    "
831 r$(11)=q$+"must be dead and there are laws against that!"
840 r$(12)="[212]here is no dirt in a hole - just air!"
850 q$="[201]n order for the total bill for the     "
851 q1$="bottle and the cork to equal $1.05 and  "
852 q2$="the bottle to cost $1.00 more than the  "
853 q3$="cork, the bottle must be $1.025 and the "
854 r$(13)=q$+q1$+q2$+q3$+"cork $ .025."
860 q$="[197]ach of two teams get 3 outs, therefore "
861 r$(14)=q$+"there are 6 outs in an inning."
870 q$="[211]ince the lilies double in area of      "
871 q1$="coverage each day, the lake is half     "
872 r$(15)=q$+q1$+"covered one day before it is completely covered."
880 return
51000 t$="            ":c=0:c$="":print"[147]":poke5